(de arrayAsList (Array)
  (let Length (thread "java.lang.reflect.Array" 
                (java "getLength" Array)
                java)
    (make
      (for I Length
        (thread "java.lang.reflect.Array"
          (java "get" Array (dec I) )
          link) ) ) ) )